1 DIM V$(10)
2 REM GREG LEMON/HOOD, RITTER DES RECHTS
3 REM PUBLIC DOMAIN PROGRAMM
4 REM VON PETER DIEHM (W) 12/91
7 POKE 657,128:POKE 650,255:GG=1:F=1
8 POKE 53280,0:POKE 53281,0:PRINT"[147]"CHR$(142):POKE 646,1:GOSUB 30:GOTO5000
10 REM UNTERPROGRAMM TASTE
12 PRINTSPC(30)"[154]-TASTE-[146]"
13 GET D$:IF D$="" THEN 13
14 RETURN
30 REM SPRITE
32 V=53248:FORI=0TO62:READXX:POKE 832+I,XX
33 NEXT I
34 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,28,0
35 DATA 0,62,0,0,127,0,0,255,128,1,255,192,0,28,0
36 DATA 0,28,0,0,28,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
37 POKE 53269,0:POKE 2040,13:POKE V+43,0:POKE V+39,7
40 RETURN
50 REM BILDER LOADER
51 OPEN1,8,4,"PIC"+A$+",S,R"
53 INPUT#1,V$(1),V$(2),V$(3),V$(4),V$(5),V$(6),V$(7),V$(8),V$(9),V$(10)
54 CLOSE1
60 REM PIC INSTALL
61 FORI=1TO10:PRINTSPC(1)""V$(I)"":NEXT:RETURN
70 REM GREG LEMON/HOOD
71 PRINT"[147]":POKE 53269,0
73 PRINTSPC(1)"[207][183][208] [207][205] [207][183] [207][208]
74 [153][166]1)"FN AND (null)SQR (null)USR FNAND LEMON/HOOD ! RITTER DES
75 PRINTSPC(1)"[204][175][186] [165][205] [183][183] [204][186]               RECHTS !
76 [142]
90 [129] I[178]1[164]20:[153]"CONTSTR$ASC";:[130]:[142]
100 [141] 440:[153][166]1)"DU OEFFNEST DIE TUER UND GEHST IN DIE
102 PRINTSPC(1)"HUETTE !":F=20:GOSUB 10:GOTO 1000
120 GOSUB 440:PRINTSPC(1)"DU BESIEGST DEN DRACHEN UND BADEST IN
122 [153][166]1)"DESSEN BLUT. DU BIST NUN UNSTERBLICH !":DD[178]1:[141] 10:[137] 1000
130 [141] 440:[153][166]1)"DU KOLPFST AN DIE TUER !":[137] 1700
135 [141] 440:[153][166]1)"DU ZIEHST DIR DIE KUTTE UEBER !":EE[178]1:
136 [129]I[178]1[164]2500:[130]:[137] 1000
140 [141] 440:[153][166]1)"DU SCHLAEGST DEM WOGGLING DEN KOPF AB."
142 [129]I[178]1[164]2500:[130]:FF[178]1:[137] 1000
145 [141] 440:[153][166]1)"DU ZERSCHLAEGST DIE TUER UND GEHST
146 PRINTSPC(1)"HINEIN !":F=20:GOTO 450
150 PRINTSPC(1)"VOR DIR STEHT EIN MOENCH, DIESER SAGT
152 [153][166]1)"DAS ER DURST AUF PRICKELWASSER HAT.
154 PRINTSPC(1)"ALTER SAUFBOLD DENKST DU. R: SUEDEN.":GOSUB90
156 GOTO 1200
170 PRINTSPC(1)"DER WEG IST NUN IMMER NOCHT NICHT
172 [153][166]1)"FREI, DA EIN TOTER DRACHE DIR DEN WEG
174 PRINTSPC(1)"VERSPERRT."
175 PRINTSPC(1)"RICHTUNGEN: NORDEN, WESTEN.":GOSUB 90:GOTO 1200
200 REM NORDEN
201 IF F=1 THEN F=5:GOTO 400
202 IF F=4 THEN F=1:GOTO 400
204 IF F=16 THEN F=4:GOTO 400
205 IF F=18 THEN F=17:GOTO 400
207 IF F=22 THEN F=3:GOTO 400
209 IF F=3 THEN F=2:GOTO 400
210 IF F=6 THEN F=7:GOTO 400
212 IF F=7 THEN F=11:GOTO 400
214 IF F=9 THEN F=10:GOTO 400
216 IF F=14 THEN F=13:GOTO 400
217 IF F=13 THEN F=15:GOTO 400
219 IF F=10 THEN F=12:GOTO 400
230 GOSUB440:PRINTSPC(1)"DORTHIN FUEHRT KEIN WEG !":FORI=1TO2000:NEXT
232 GOTO 1000
250 REM SUEDEN
251 IF F=5 THEN F=1:GOTO 410
252 IF F=1 THEN F=4:GOTO 410
254 IF F=4 THEN F=16:GOTO 410
255 IF F=17 THEN F=18:GOTO 410
257 IF F=3 THEN F=22:GOTO 410
259 IF F=2 THEN F=3:GOTO 410
260 IF F=7 THEN F=6:GOTO 410
262 IF F=11 THEN F=7:GOTO 410
264 IF F=10 THEN F=9:GOTO 410
266 IF F=13 THEN F=14:GOTO 410
267 IF F=15 THEN F=13:GOTO 410
269 IF F=12 THEN F=10:GOTO 410
280 GOTO 230
300 REM WESTEN
301 IF F=1 THEN F=21:GOTO 420
303 IF F=2 THEN F=1:GOTO 420
305 IF F=6 THEN F=2:GOTO 420
306 IF F=8 THEN F=6:GOTO 420
308 IF F=9 THEN F=8:GOTO 420
310 IF F=16 THEN F=17:GOTO 420
312 IF F=17 THEN F=19:GOTO 420
314 IF F=3 THEN F=4:GOTO 420
316 IF F=10 THEN F=7:GOTO 420
317 IF F=7 THEN F=5:GOTO 420
320 IF F=13 THEN F=12:GOTO 420
330 GOTO 230
350 REM OSTEN
351 IF F=21 THEN F=1:GOTO 430
353 IF F=1 THEN F=2:GOTO 430
355 IF F=2 THEN F=6:GOTO 430
356 IF F=6 THEN F=8:GOTO 430
358 IF F=8 THEN F=9:GOTO 430
380 IF F=17 THEN F=16:GOTO 430
382 IF F=19 THEN F=17:GOTO 430
384 IF F=4 THEN F=3:GOTO 430
386 IF F=7 THEN F=10:GOTO 430
387 IF F=5 THEN F=7:GOTO 430
390 IF F=12 THEN F=13:GOTO 430
391 IF F=20 THEN F=19:GOTO 430
395 GOTO 230
400 GOSUB 440
401 PRINTSPC(1)"DU GEHST NACH NORDEN !":FORI=1TO500:NEXT:GOTO 450
410 GOSUB 440
411 PRINTSPC(1)"DEINER EINER LAUEFT NACH SUEDEN !":FORI=1TO500:NEXT:GOTO 450
420 GOSUB 440
421 PRINTSPC(1)"YOU GO WEST !":FORI=1TO500:NEXT:GOTO 450
430 GOSUB 440
431 PRINTSPC(1)"DU MARSCHIERST NACH OSTEN !":FORI=1TO500:NEXT:GOTO 450
440 PRINT"":POKE 53269,0
441 PRINTSPC(1)"[144]                                      [146]
442 [153][166]1)"STOP                                      WAIT
443 PRINTSPC(1)"[144]                                      [146]
444 [153][166]1)"STOP                                      WAIT
445 PRINT"":RETURN
450 REM MARCH MUSIK !
451 FORI=1TO10:SI=54272
453 FOR II=0 TO 24:POKE SI+II,0:NEXT
455 POKE SI+1,15:POKE SI+5,9:POKE 2+15,30
456 POKE SI+24,15:POKE SI+4,129:POKE SI+4,65:POKE SI+4,129
458 NEXTI:GOTO1000
500 PRINT"[147]":REM ANLEITUNG
502 GOSUB 70
505 PRINTSPC(1)"DEINE JUGENDLIEBE MAID MARIAN WURDE
507 [153][166]1)"CONT ENTFUEHRT WAIT WAS DICH NICHT WEITER
510 PRINTSPC(1)"STOERT ! JEDOCH HAT SIE EINE KETTE AN,
513 [153][166]1)"WELCHE DU JETZT WO SIE WOHL IHREN ENT=
515 PRINTSPC(1)"FUEHRER [158] HEIRATEN [146] MUSS, WIEDER HABEN
517 [153][166]1)"WILLST !
519 PRINTSPC(1)"ALSO MACHST DU DICH AUF DEN WEG, DIE
520 [153][166]1)"KETTE  WIEDER WAIT ZU BESORGEN !
522 PRINTSPC(1)"VIEL ERFOLG !!!
525 [153][166]1)"PUBLIC DOMAIN SOFT 12/1991
526 PRINTSPC(1)"    (W) BY PETER DIEHM 1991
528 [141] 10
530 [153]"LOAD"
532 [153][166]2)"  (null)(null)+(null) SGNFN  (null) (null)USR USR(null)USRUSR FN ++(null) FN(null)USR(null)
533 PRINTSPC(2)"  [204][186][167][170] [180][180]  [207] [170]   [170]   [165] [170][170][170] [165][165] [175]
534 [153][166]2)"  FN+THEN (null)FN(null)AND USR USRUSR  +   (null)AND(null)+ (null)FN(null)AND(null)
535 PRINTSPC(1)"":GOSUB 90
537 PRINTSPC(1)" (W) BY PETER DIEHM DEZEMBER 1991 PD
539 [153][166]1)"ANLEITUNG AUF DRUCKER ODER MONITOR
540 PRINTSPC(1)"AUSGEBEN ?
543 [133] " CONT -=> WAIT (D/M) ";D$
544 [139] D$[178]"D" [176] D$[178]"DRUCKER" [167] GF[178]1:[137]550
547 [139] D$[178]"M" [176] D$[178]"MONITOR" [167] 555
549 [137] 530
550 [153][166]1)"DRUCKER EINSCHALTEN !":[141] 10
551 [159]1,4:[157]1
553 [137] 560
554 [137] 3000
555 [153]"LOAD"
556 [153][166]1)" ANLEITUNG:"
557 [153][166]1)"------------"
560 [153][166]1)"HALLO WILLKOMMEN ZUM DEM VERRUECKTESTEN
562 PRINTSPC(1)"PUBLIC DOMAIN ADVENTURE SEID BEN HUR !"
564 PRINTSPC(1)"GREG LEMON/HOOD VATER ALLER ADVENTURE.
565 [153][166]1)"STEUERN KANNST DU DAS ADVENTURE MIT
566 PRINTSPC(1)"DEN F-TASTEN. DIESE HABEN FOLGENDE BE=
567 [153][166]1)"DEUTUNG: F1=RECHTS,F3=LINKS,F5=AKTION
568 PRINTSPC(1)"AUFRUFEN,F7= WENN DU DICH KURZER HAND
570 [153][166]1)"ENTSCHLIESST DOCH NICHT IN EINE RICHT=
572 PRINTSPC(1)"UNG ZU GEHEN,DANN DRUECKE DIESE TASTE.
580 [153][166]1)"NUN NOCH EIN KLEINER AUFRUF ! MACH
581 PRINTSPC(1)"DOCH AUCH MAL WAS FUER DEN PUBLIC
583 [153][166]1)"BEREICH ! UND SCHICKE DANN DAS/DIE
585 PRINTSPC(1)"PROGRAMM(E) AN EINEN PUBLIC DOMAIN
587 [153][166]1)"VERTRIEB.BEI DEN VERTRIEBEN DIE DIESES
588 PRINTSPC(1)"PROGRAMM IN IHRER LISTE HABEN BEKOMMST
590 [153][166]1)"DU BISTIMMT ANTWORT !"
591 [139] GF[178]1 [167] 554
595 [153]"":[141] 10:[137] 1000
699 [128]
700 [143] ERSCHLAGEN
701 [141] 70
704 [153][166]1)"TRAURIGE NACHRICHT !"
707 [153][166]1)"DU WIRST VON EINEM AST ERSCHLAGEN !"
710 [153][166]1)"HAETTST DU IN DRACHEN BLUT GEBADET
712 PRINTSPC(1)"WAERE DAS NICHT PASSIERT !":GOSUB 10
715 GOSUB 70
717 PRINTSPC(1)"NOCH EIN [155] SPIEL [146] ?
718 [133]" SYS -=> WAIT ";D$
720 [139] D$[178]"N" [176] D$[178]"NEIN" [167] [158] 64738
722 [138]
990 F[178]1:GG[178]1:[141] 30
1000 [143] VERTEILER
1001 [151] 53269,0
1002 [153]"LOAD GREG LEMON/HOOD  RITTER WAIT DES RECHTS !":GG[178]1
1004 [139] F[178]1 [167] A$[178]"2":[141] 50:[137] 2000
1006 [139] F[178]2 [167] A$[178]"1":[141] 50:[137] 2020
1007 [139] F[178]3 [167] A$[178]"2":[141] 50:[137] 2040
1008 [139] F[178]4 [167] A$[178]"1":[141] 50:[137] 2060
1009 [139] F[178]5 [167] A$[178]"1":[141] 50:[137] 2080
1010 [139] F[178]6 [167] A$[178]"2":[141] 50:[137] 2100
1011 [139] F[178]7 [167] A$[178]"2":[141] 50:[137] 2120
1012 [139] F[178]8 [167] A$[178]"1":[141] 50:[137] 2140
1013 [139] F[178]9 [175] DD[178]0 [167] A$[178]"10":[141] 50:[137] 2160
1014 [139] F[178]9 [175] DD[178]1 [167] A$[178]"3":[141] 50:[137] 170
1015 [139] F[178]10 [167] A$[178]"6":[141] 50:[137] 2180
1016 [139] F[178]11 [167] A$[178]"1":[141] 50:[137] 2200
1018 [139] F[178]12 [167] A$[178]"1":[141] 50:[137] 2220
1020 [139] F[178]13 [167] A$[178]"8":[141] 50:[137] 2240
1022 [139] F[178]14 [167] A$[178]"1":[141] 50:[137] 2260
1025 [139] F[178]15 [167] A$[178]"7":[141] 50:[137] 2280
1026 [139] F[178]16 [167] A$[178]"1":[141] 50:[137] 2300
1027 [139] F[178]17 [167] A$[178]"2":[141] 50:[137] 2320
1030 [139] F[178]18 [167] A$[178]"2":[141] 50:[137] 2340
1032 [139] F[178]19 [167] A$[178]"5":[141] 50:[137] 2360
1035 [139] F[178]20 [167] A$[178]"9":[141] 50:[137] 2380
1036 [139] F[178]21 [167] A$[178]"2":[141] 50:[137] 2400
1037 [139] F[178]22 [167] A$[178]"4":[141] 50:[137] 2420
1040 F[178]1:[137] 1000
1090 [143] PETER DIEHM
1092 [143] WALDSTR.58
1095 [143] 6149 RIMBACH 1
1096 [143] (W) 19.12 - 24.12. 1991
1098 [143] PUBLIC DOMAIN
1200 [153]"":P[178]64:Y[178]200
1202 [151] 53269,1
1205 [153]"   RICHTUNG  NIMM  GEBE  UNTERSUCHE
1206 PRINT"   BENUTZE   LOAD  SAVE  INVENTAR":GOSUB 90
1207 POKE V+0,P:POKE V+1,Y
1210 GET D$:IF D$="" THEN 1210
1212 IF D$="[133]" THEN GG=GG+1
1213 IF D$="[134]" THEN GG=GG-1
1214 IF D$="[135]" THEN 1250
1216 IF GG=9 THEN GG=1
1217 IF GG=0 THEN GG=8
1219 IF GG=1 THEN P=64:Y=200
1220 IF GG=2 THEN P=135:Y=200
1222 IF GG=3 THEN P=180:Y=200
1223 IF GG=4 THEN P=245:Y=200
1225 IF GG=5 THEN P=62:Y=220
1226 IF GG=6 THEN P=135:Y=220
1227 IF GG=7 THEN P=180:Y=220
1230 IF GG=8 THEN P=240:Y=220
1235 GOTO 1207
1250 ON GG GOTO 1300,1350,1400,1450,1500,1550,1600,1650
1300 PRINT"":P=64:Y=200
1301 PRINT"[144]                                     "
1302 PRINT"[144]                                     "
1303 PRINT"[144]                                     "
1305 PRINT"":GG=1
1306 PRINT"   NORDEN  SUEDEN  WESTEN  OSTEN
1308 [153]"":[141] 90
1309 [151] V[170]0,P:[151] V[170]1,Y
1310 [161] D$:[139] D$[178]"" [167] 1310
1312 [139] D$[178]"INPUT" [167] GG[178]GG[170]1
1314 [139] D$[178]"DIM" [167] GG[178]GG[171]1
1316 [139] D$[178]"READ" [167] 1330
1317 [139] D$[178]"LET" [167] 1340
1318 [139] GG[178]5 [167] GG[178]1
1319 [139] GG[178]0 [167] GG[178]4
1320 [139] GG[178]1 [167] P[178]60:Y[178]200
1321 [139] GG[178]2 [167] P[178]120:Y[178]200
1322 [139] GG[178]3 [167] P[178]180:Y[178]200
1323 [139] GG[178]4 [167] P[178]240:Y[178]200
1327 [137] 1309
1330 [151] 53269,0
1332 [145] GG [137] 200,250,300,350
1340 GG[178]1:[137] 1200
1350 [143] NIMM
1351 [139] F[178]22 [175] T[178]0 [167] T[178]1:[137] 1370
1353 [139] F[178]20 [175] E[178]0 [167] E[178]1:[137] 1373
1354 [139] F[178]21 [175] D[178]0 [167] D[178]1:[137] 1376
1355 [139] F[178]9 [175] G[178]0 [167] G[178]1:[137] 1380
1360 [141] 440
1361 [153][166]1)"ICH SEHE NICHTS ZUM NEHMEN.":[129]I[178]1[164]2500:[130]
1362 [137] 1000
1370 [141] 440:[153][166]1)"DU NIMMST DEN SCHLUESSEL !":[137] 1382
1373 [141] 440:[153][166]1)"DU NIMMST DEN RASIERER !":[137] 1382
1376 [141] 440:[153][166]1)"DU NIMMST DIE KUTTE !":[137] 1382
1380 [141] 440:[153][166]1)"DU NIMMST DAS SCHWERT !":[137] 1382
1382 [129]I[178]1[164]3000:[130]:[137] 1000
1400 [143] GEBE
1401 [139] F[178]10 [175] S[178]0 [167] 1420
1403 [139] F[178]15 [175] ZZ[178]1 [167] 1430
1405 [141] 440:[153][166]1)"GIBTS GIBS ?
1407 FORI=1TO2000:NEXT:GOTO 1000
1420 GOSUB 440
1422 PRINTSPC(1)"DU GIBST DEM WOGGLING DEINEN RASIERER,
1423 [153][166]1)"ER GIBT DIR DAFUER EINE FLASCHE SEKT."
1425 [141] 10:S[178]1:CC[178]1:[137] 1000
1430 [139] S[178]1 [167] 1435
1432 [137] 1405
1435 [143] WIN
1436 [141]440:[153][166]1)"DU GIBST DEM MOENCH DEN SEKT, DIESER
1437 PRINTSPC(1)"LAESST DICH NUN IN DAS [154] KLOSTER [146] !
1438 [141] 10:[137] 1760
1450 [143] UNTERSUCHE
1451 [139] F[178]22 [175] T[178]0 [167] 1470
1453 [139] F[178]20 [175] E[178]0 [167] 1475
1460 [141] 440
1462 [153][166]1)"IN DER TIERKLINIK !":[129]I[178]1[164]2500:[130]:[137]1000
1470 [141] 440
1472 [153][166]1)"DU FINDEST EINEN SCHLUESSEL !":T[178]1:[129]I[178]1[164]3000:[130]
1474 [137] 1000
1475 [141] 440:[153][166]1)"DU FINDEST EINEN RASIERER !"
1477 E[178]1:[129]I[178]1[164]3000:[130]:[137] 1000
1500 [143] BENUTZE
1501 [139] F[178]19 [175] T[178]1 [167] 100
1504 [139] F[178]9 [175] G[178]1 [167] 120
1507 [139] F[178]15 [167] 130
1509 [139] D[178]1 [167] 135
1510 [139] G[178]1 [175] F[178]10 [167] 140
1512 [139] G[178]1 [175] F[178]19 [167] 145
1520 [141] 440
1522 [153][166]1)"BENUTZ, DIE ZAHNCREME FUER ALLE !":[129]I[178]1[164]2500:[130]
1525 [137] 1000
1550 [143] LOAD
1552 [153]"LOAD":[141] 70:[151] 53269,0
1553 [153][166]1)" CLR LOAD WAIT...
1555 INPUT " FILE  NAME [146] ";C$
1557 OPEN1,8,4,"[218]"+C$+"!,S,R"
1560 INPUT#1,T,E,D,G,S,DD,EE,FF,ZZ,F,CC
1562 CLOSE1
1565 GOTO 1000
1600 REM SAVE
1601 PRINT"[147]":GOSUB 70:POKE 53269,0
1603 PRINTSPC(1)" [158] SAVE [146]...":R$=CHR$(13)
1605 INPUT " FILE [158] NAME [146] ";C$
1607 OPEN 2,8,15,"S:[218]"+C$+"!":CLOSE2
1610 OPEN1,8,4,"[218]"+C$+"!,S,W"
1612 PRINT#1,T;R$;E;R$;D;R$;G;R$;S;R$;DD;R$;EE;R$;FF;R$;ZZ;R$;F;R$;CC
1620 CLOSE1
1622 GOTO 1000
1650 REM INVENTAR
1651 PRINT"[147]":POKE 53269,0
1653 PRINTSPC(1)" [183][207][170][205] [165][205]  [206] [207][170][205][165][208][183] [207][208] [207][205]
1654 [153][166]1)"  FN+ (null)FN FN+  (null)+ FN+  (null)(null) (null)SQR   GREG
1655 PRINTSPC(1)" [175][204][170]  [165] [205][206]  [183]         [165][205] LEMON/HOOD
1656 [153][166]1)"":[141] 90
1657 [153][166]1)"DU  BESITZT: WAIT
1660 PRINTSPC(12)"GEHIRN ?
1661 [139] T[178]1 [167][153][166]12)"SCHLUESSEL
1662 IF E=1 THENPRINTSPC(12)"RASIERER
1664 [139] D[178]1 [167][153][166]12)"KUTTE
1667 IF G=1 THENPRINTSPC(12)"SCHWERT
1670 [139] S[178]1 [167][153][166]12)"SEKT
1672 IF DD=1 THENPRINTSPC(1)"DU BIST UNSTERBLICH !
1675 [141] 10:[137] 1000
1699 [128]
1700 [143] KLOPFEN
1705 [129]I[178]1[164]5:SI[178]54272
1706 [129] II[178]0 [164] 24:[151] SI[170]II,0:[130]
1707 [151] SI[170]1,15:[151] SI[170]5,9:[151] 2[170]15,30
1709 [151] SI[170]24,15:[151] SI[170]4,65:[151] SI[170]4,129:[151] SI[170]4,129:[151] SI[170]4,33
1710 [129] MV[178]1 [164] 100:[130]:[130]I
1712 [141] 1750
1714 [139] EE[178]1 [167] 1730
1716 [153][166]1)"EIN MOENCH KOMMT HERAUS UND MUSTERT
1717 PRINTSPC(1)"DICH KURZ. DANN VERSCHWINDET ER WIEDER
1719 [153][166]1)"HINTER DER TUER !":[141] 10:[137] 1000
1730 [153][166]1)"EIN MOENCH KOMMT HERAUS UND BEGRUESST
1732 PRINTSPC(1)"DICH FREUNDLICH.":ZZ=1:GOSUB 10:GOTO 1000
1750 REM WIN
1751 PRINT"[147]":POKE 53269,0
1753 PRINTSPC(5)"[170][206] [165] [207][208] [207] [195][178][195]
1755 [153][166]5)"+(null) (null) (null)SQR (null)  PEEK  (null) (null)(null)
1756 PRINTSPC(5)"        [183]  [194]  [207] [204][175][165]
1757 [153][166]5)"              USR FN(null) ":[142]
1760 [143] SIEG
1762 [141] 1750
1764 [153][166]1)"DU DRINGST IN DEN KELLER VOR, DORT
1765 PRINTSPC(1)"HAENGT MAID MARIAN, GEFESSELT VON
1767 [153][166]1)"RATTEN UMRINGT. DU REISST IHR DIE
1768 PRINTSPC(1)"KETTE VOM HALS UND VERDRUECKST DICH!":FORI=1TO5000:NEXT
1769 PRINTSPC(1)"DU HAST GEWONNEN !
1773 [153][166]1)"ICH MUSS ZUGEBEN DAS IST KEINE
1776 PRINTSPC(1)"SCHLECHTE [154] LEISTUNG [146] !
1778 [153][166]1)"HAT DIR DAS PROGRAMM GEFALLEN ? JA
1780 PRINTSPC(1)"DANN KAUFE DIR DOCH DAS RICHTIGE
1782 [153][166]1)"ROBIN HOOD PROGRAMM !
1786 GOSUB 10
1788 GOSUB 70
1789 PRINTSPC(1)"ES HEISST: 'ROBIN HOOD, HELD VON
1790 [153][166]1)"SHERWOOD' UND IST BEI DATA HOUSE
1792 PRINTSPC(1)"VELLMAR ERHAELTLICH !":GOSUB 10
1796 SYS 64738
1999 END
2000 REM
2002 PRINTSPC(1)"DU BIST IN EINEM WALDIGEN WALD, HIER
2005 [153][166]1)"SOLL IRGENDWO DAS KLOSTERISCHE KLOSTER
2006 PRINTSPC(1)"SEIN. WEGE FUEHREN IN ALLE MOEGLICHEN
2007 [153][166]1)"HIMMELSRICHTUNGEN !":[141] 90
2018 [137] 1200
2020 [143] F=2
2021 [153][166]1)"IMMER DEINER NASE LANG LAUEFST DU
2022 PRINTSPC(1)"DURCH DEN WALD, PATSCHNASS VOM REGEN.
2023 [153][166]1)"MOEGLICHE RICHTUNGEN: SUEDEN,WESTEN,
2024 PRINTSPC(1)"OSTEN."
2034 GOSUB 90:GOTO 1200
2040 REM F=3
2042 PRINTSPC(1)"DEINE SCHUHE SIND VOLLER MATSCH, SO
2043 [153][166]1)"DAS DU NICHT MEHR ERKENNEN KANNST, OB
2045 PRINTSPC(1)"SIE VON PUMA, ADDIDAS ODER NIKE
2046 [153][166]1)"SIND. RICHTUNGEN: N,S,W.
2047 GOSUB 90:GOTO 1200
2058 GOTO 2055
2060 REM F=4
2062 PRINTSPC(1)"THE ADVENTURE FLECK IS BACK ! WIE
2063 [153][166]1)"SOFT STEHT HIER WENIGER ALS NUR
2065 PRINTSPC(1)"SCHROTT ! RICHTUNGEN: N,S,O."
2066 GOSUB 90:GOTO 1200
2080 REM F=5
2081 PRINTSPC(1)"DEIN WEG MACHT EINE BIEGUNG SO DAS DU
2083 [153][166]1)"WOHL ODER UEBEL DIE RICHTUNG WECHSELN
2085 PRINTSPC(1)"MUSST ! RICHTUNGEN: SUEDEN, OSTEN."
2087 GOSUB 90:GOTO 1200
2100 REM F=6
2101 PRINTSPC(1)"WIE VON EINEM LINEAL GEZOGEN FUEHRT
2104 [153][166]1)"EIN WEG VON OSTEN NACH WESTEN. DEIN
2105 PRINTSPC(1)"GEODREIECK ZEIGT EINEN 180 GRAD WINKEL
2106 [153][166]1)"AN. RICHTUNGEN: NORDEN, OSTEN, WESTEN."
2107 [141] 90:[137] 1200
2120 [143] F=7
2122 [153][166]1)"IM OSTEN IN DEN KRONEN DER BAUEME
2123 PRINTSPC(1)"IST EIN EWOK DORF, WIE ES DORTHIN
2125 [153][166]1)"KOMMT WEIS ICH NICHT ?
2127 PRINTSPC(1)"RICHTUNGEN: ALLE MOEGLICHEN.
2128 [141] 90:[137] 1200
2140 [143] F=8
2142 [153][166]1)"GESUND SEHEN SIE JA AUS DIE BAUEME, OB
2143 PRINTSPC(1)"SIE ES ALLERDINGS AUCH ALLE SIND IST
2144 [153][166]1)"FRAGLICH. AUF ALLE FAELLE SIEHST DU
2145 PRINTSPC(1)"IM OSTEN DEN WALDESRAND. R: W, O."
2146 GOSUB 90:GOTO 1200
2147 IF G=0 THENPRINTSPC(1)"[158] DU SIEHST: [146] EIN SCHWERT.
2160 [143] F=9
2162 [153][166]1)"LEIDER KANNST DU NICHT WEITER, DA EIN
2163 PRINTSPC(1)"DRACHE DIR DEN WEG VERSPERRT.
2164 [153][166]1)"RICHTUNGEN: NORDEN, WESTEN.
2167 IF G=0 THENPRINTSPC(1)"[158] DU SIEHST: [146] EIN SCHWERT.
2168 [139] G[177]0 [167][153][166]1)"SYS DU SIEHST: WAIT EINEN SCHWERT ABDRUCK."
2169 [141] 90:[137] 1200
2180 [143] F=10
2181 [153][166]1)"DU BIST IN EINEM EWOK DORF, EIN
2182 IF FF=1 THEN PRINTSPC(1)"WOGGLING HAELT SEINEN KOPF":GOTO 2185
2183 IF CC=0 THEN PRINTSPC(1)"WOGGLING HAELT EINE FLASCHE SEKT
2184 [139] CC[178]1 [167] [153][166]1)"WOGGLING HAELT EINEN RASIERER
2185 PRINTSPC(1)"IN SEINER HAND. RICHTUNEGEN: N,S,W."
2186 GOSUB 90:GOTO 1200
2200 REM F=11
2201 PRINTSPC(1)"DIES IST EINE BEUTELGASSE, DER BEUTEL
2204 [153][166]1)"IST ZU GROSS, DU KANNST IHN NICHT WEG=
2206 PRINTSPC(1)"RAUEMEN. DESHALB GIBT ES FUER DICH NUR
2208 [153][166]1)"DEN WEG ZURUECK, RICHTUNGEN: SUEDEN.
2209 GOSUB 90:GOTO1200
2220 REM F=12
2221 PRINTSPC(1)"IM SUEDEN IST DAS EWOK DORF, IM
2222 [153][166]1)"OSTEN DER WALDESRAND. EINE PFEIFE ER=
2223 PRINTSPC(1)"TOENT. RICHTUNGEN: SUEDEN, OSTEN.":GOSUB 90
2226 GOTO 1200
2240 REM F=13
2241 PRINTSPC(1)"DU VERLAESST DEN WALD UND LAUEFST AUF
2243 [153][166]1)"EINEM SCHMALEN WEG. IM NORDEN SIEHST
2245 PRINTSPC(1)"DU EIN KLOSTER. RICHTUNGEN: N,S,W."
2246 PRINTSPC(1)"":GOSUB 90
2247 GOTO 1200
2260 REM F=14
2261 PRINTSPC(1)"DU GEHST IN EIN KLEINES WAELDCHEN,
2264 [153][166]1)"DIESES IST ALLERDINGS VOLLKOMMEN UN=
2265 PRINTSPC(1)"INTERESSANT. RICHTUNGEN: NORDEN."
2266 GOSUB 90:GOTO 1200
2280 REM F=15
2281 IF ZZ=1 THEN 150
2282 PRINTSPC(1)"DU STEHST VOR DER KLOSTER-TUER, DU
2283 [153][166]1)"FUEHLST DAS DEINE KETTE IN DER NAEHE
2286 PRINTSPC(1)"IST. AN DER TUER IST EIN KLINGEL
2287 [153][166]1)"KNOPF. RICHTUNG: SOUTH.
2288 GOSUB 90:GOTO 1200
2300 REM F=16
2302 PRINTSPC(1)"DU GEHST IMMER WEITER IN DEN WALD
2304 [153][166]1)"HINEIN, EIN SAURER REGEN BEGINNT. IN
2306 PRINTSPC(1)"DEINEM STRAHLENDSCHUTZANZUG KOMMST DU
2307 [153][166]1)"NUR SCHWER VORAN. RICHTUNGEN: N,W."
2308 [141] 90:[137] 1200
2320 [143] F=17
2321 [139] DD[178]0 [167] 700
2322 [153][166]1)"GEFAELLT DIR DAS ADVENTURE ? JA
2323 PRINTSPC(1)"DANN SCHREIB DOCH MAL EINS GEHT GANZ
2324 [153][166]1)"LEICHT, KANN SOGAR ICH.
2325 PRINTSPC(1)"IM WESTEN IST EINE HUETTE. R:S,W,O."
2326 GOSUB 90:GOTO 1200
2340 REM F=18
2341 PRINTSPC(1)"ES WAERE DOCH GELACHT WENN NICHT AUCH
2342 [153][166]1)"DU ETWAS ZUM STANDE BRINGEN WUERDEST,
2344 PRINTSPC(1)"ALSO RUNSTOP DRUECKEN UND DIE LISTE
2345 [153][166]1)"ANSCHAUEN ! RICHTUNGEN: NORDEN.
2346 GOSUB 90:GOTO 1200
2360 REM F=19
2361 PRINTSPC(1)"DU FUEHLST DICH BEOBACHTET, SO ALS
2363 [153][166]1)"OB SOGAR DIE BAUEME AUGEN HAETTEN. WIE
2365 PRINTSPC(1)"SO OFT IN DEINEM LEBEN STEHST DU VOR
2366 [153][166]1)"EINER VERSCHLOSSENEN TUER. R: O."
2370 [141]90:[137] 1200
2380 [143] F=20
2381 [153][166]1)"DU BIST IN EINER ALTEN HUETTE, VOR DIR
2382 PRINTSPC(1)"AUF DEM BODEN LIEGT EINE GELBE HOLZ=
2384 [153][166]1)"KISTE AEHNLICH EINES BRIEFKASTENS. IM
2387 PRINTSPC(1)"OSTEN FUEHRT EINE TUER NACH DRAUSSEN.
2388 [141] 90:[137] 1200
2400 [143] F=21
2401 [153][166]1)"DU BIST EINS MIT DER NATUR. DENN SO
2403 PRINTSPC(1)"EBEN HAST DU DICH MLOCH VERSUNKEN.
2405 [153][166]1)"MOEGLICHE RICHTUNGEN: OSTEN.
2411 IF D=0 THENPRINTSPC(1)"[152] DU SIEHST: [146] EINE MOENCHS KUTTE.
2412 [139] D[177]0 [167][153][166]1)"PRINT# DU SIEHST: WAIT NICHTS."
2413 [141] 90:[137] 1200
2420 [143] F=22
2421 [153][166]1)"VOR DIR LIEGT EIN 'DING' EINE UNBE=
2422 PRINTSPC(1)"KANNTE KISTENFORM. LANGE ZEIT WURDE
2424 [153][166]1)"SIE FUER AUSGESTORBEN ERKLAERT.
2426 PRINTSPC(1)"MOEGLICHE RICHTUNGEN: NORDEN.
2428 [141] 90:[137] 1200
3000 [153][166]1)"UND NUN DAS SCHOENSTE AN UNSERER MARKT=
3002 PRINTSPC(1)"WIRTSCHAFT ! DIE  WERBUNG [146] !
3005 [153][166]1)"DU FRAGST DICH SICHER WER HAT DIESES
3006 PRINTSPC(1)"PROGRAMM GESCHRIEBEN ? KANN MAN EINER
3008 [153][166]1)"SEINER JUENGER WERDEN ? ODER IHN GAR
3010 PRINTSPC(1)"JEDEN MORGEN DIE BILD ZEITUNG BRINGEN ?":PRINT
3012 PRINTSPC(1)"ICH KANN DIR ZWAR AUF DIE BEIDEN LETZTEN
3015 [153][166]1)"FRAGEN KEINE  ANTWORT WAIT GEBEN JEDOCH AUF
3016 PRINTSPC(1)"DIE ERSTE !
3018 [153][166]1)"ICH HABE DIESES PROGRAMM GESCHRIEBEN UND
3020 PRINTSPC(1)"NICHT NUR DAS !
3022 [153][166]1)"BEI DATA HOUSE, KAI-UWE DITTRICH,
3025 PRINTSPC(1)"HUSUMER STR.10, 3502 VELLMAR GIBT ES
3027 [153][166]1)"NOCH MEHR SOFT VON MIR !":[153]
3029 [153][166]1)"Z.B. ZWEI GREG LEMON/SODA ADVENTURE
3030 PRINTSPC(1)"ALS KOMMERZIELLER GAME PACK FUER 5 DM.
3032 [153][166]1)"ODER DEN PAZIFIK UND ATLANTIK PACK FUER 10 DM.
3035 PRINTSPC(1)"DIE SIMULATION OST INDIEN COMPANY FUER WENIGER
3037 [153][166]1)"ALS 20 DM ODER ROBIN HOOD, HELD VON SHERWOOD !":[153]
3040 [153][166]1)"GRATISLISTE ANFORDERN BEI DATA HOUSE !":[153]
3043 [153][166]1)"DESWEITEREN GIBT ES AUCH VIEL PD-SOFT VON MIR !
3045 PRINTSPC(1)"EIN ENDE DER PROGRAMMIEREREI IST NICHT
3050 [153][166]1)"ABZUSEHEN ! VIEL SPASS ! MAN SIEHT SICH !!":[153]
3052 [153][166]1)"(W)  BY PETER DIEHM WAIT  1991
3053 PRINTSPC(1)"ICH BIN KEIN ANGEBER, ALLERDINGS AUCH KEIN ABGEBER,
3054 [153][166]1)"DAFUER ABER EIN VERGEBER !"
3055 [160]1
3056 GF[178]0:[153]"LOAD":[138] 990
4000 [143] BEI DIESER ADRESSE KOENNT IHR
4002 [143] EUCH BESCHWEREN, IHR BEKOMMT
4005 [143] BESTIMMT KEINE ANTWORT !
4007 [143] PETER DIEHM
4010 [143] WALDSTR.58
4012 [143] 6149 RIMBACH 1
4500 CV[178]0:[129]I[178]0[164]24:[151]54272[170]I,0:[130]:SI[178]54272
4502 [151]SI [170]24,15:[151]SI[170]5,16:[151]SI[170]6,255
4503 [129] QQ[178] 1 [164] 5
4505 [151]SI[170]1,[187](QQ)[172]50[170]54
4507 [151] SI[170]4,33:[129]KK[178]1[164]4:[130]KK:[151] SI[170]4,32:[130] QQ
4510 CV[178]CV[170]1:[139] CV[178]20 [167] 4600
4523 [137] 4503
4600 [151]SI[170]24,0:[142]
5000 [153]"LOAD"
5002 [141] 4500
5003 [153][166]1)"NEIN KEINE ANGST DIES IST KEIN FUTUR=
5004 PRINTSPC(1)"ISTISCHES PROGRAMM !":GOSUB 4500
5006 PRINTSPC(1)"[154] DAFUER [146] HAT ES ALLERDINGS EINEN
5008 [153][166]1)"KLEINEN SCHUSS !":[141] 4500
5010 [153][166]1)"DER NAME DES PROGRAMMS IST:":[129]I[178]1[164]2000:[130]
5012 [153][166]1)" GREG LEMON/HOOD RITTER DES RECHTS !"
5014 [153][166]1)"  DER SYS VATER WAIT ALLER ADVENTURE !":[141] 4500
5017 [153][166]1)"VON  PETER DIEHM WAIT 12/1991
5019 GOSUB 4500
5023 PRINTSPC(1)"KEINE ANGST DAS WAR DAS LETZTE MAL
5025 [153][166]1)"DAS DU DIESE BESCHEUERTE MUSIK GEHOERT
5109 GOSUB 4500
5207 PRINTSPC(1)"HAST !":FORI=1TO3000:NEXT:GOTO 500